Dim sSN
Dim sOTP

'sUser= "UnknowUser" ' No user
sUser= "Testor1"  ' Non-token
'sUser= "Testor2"  ' Authenticated user

'sOTP= "82487311"  '0  Succeed
'sOTP= "82487312"  '13 Failure
'sOTP= "8248731112" '2  Bad parameter
sOTP= "asdf"
'======================================================
  Set OBJ = CreateObject("ActivCard.Authentication")

  msgbox OBJ.UserSycAuth( sUser, sOTP )

  Set OBJ = Nothing